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1 Introduction to Qascal Concepts 

Clauscal is a set of extensions to Pascal on the Lisa. These extensions 
support "object-oriented" programming in a style that somewhat re- 
sembles SIMULA and Smalltalk . The piirpose is to provide a very high- 
level interface to code libraries, allowing the user program to perform 
highly complicated functions with simple calls, while still retaining 
flexibility- 

1.1 Class-Types 

Clascal is based on a new category of user-defined types called class- 
tKPes. An individual class-type is referred to ajs a cIclss, 

A cla^s-type is a kind of structuired-type, resembling a recoird-type in 
that it contains najned fields. Aclass can have two kinds of fields: 

• iXate jflalds are like the fields of a reco2rd; they contain variable 
data, and each data field has its own type. 

• Afer/?<^^ are procedures and functions. 

The fields are refere n ced like fields of a record, using a period ajnd a 
field-identifier (or a with-statement that references a fleld-ldentifler) . 
For example, if area identifies a field defined in class Triangle, and 
cxntTriangle is declared by 

var cmtTiiajigle: Triangle; 

then cmtTriangle. area is a reference to the area field of cmtTriangle. 
If area is a data field, then cmtTriangle. area is a vaxiable-reference; 
if area is a method, then cmtTriangle. area is either a procedure- 
statement or a function-call . 

A class-type is declared in the interface-part of a unit, and is 
supported by a method-block in the implementation-part of the same 
unit . Section 3 gives the syntax for class-types and method-blocks . 

12. Objects 

A class defines the behavior (data fields ajid msthods) of its objects. 
Each object is an instance of the class that defines its behavior . 

Each object is stored in a dynamically allocated, potentially relocat- 
able data area within a heap. An object of a given cla^s is created by 
the new method defined for that cla^s; this method returns a newly 
created object of the class (see Sectlon4. 6) . 
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A variable of a claLSS-type references an object (once it has been 
initialized) . You can think of a class-tynpe variable as being an object, 
if you beax the following in rnind: 

• When an object is assigned to a class-iype variable, the variable 
does not become a, new copy of the object: it becomes a new reference 
to the 52iD£ object. Tht-is if cla^s Square defines a data field nained 
side, and squarel and squared are two variables of class Squax^, 
and we make the assignments 

squaxel:=^ Square, xvew; 
squares := squarel; 

then the variable-references squarel. side and squared, side refer to 
the very same data. (For more information, see Section 6. ) 

• The object referenced by a class-type variable is not necessarily an 
Instance of the class of the variable: it may be an instance of a 
descendant of that class (see Section 1 . 3) . 

1.3 The Qass Hierarchy 

There is a predefined class named Object. Every class except Object is a 
s'ubclass of exaxrtly one other class, which is called its ^^peru/a-ss*. Any 
class can have any niomber of subclasses . Thus the classes form a tree 
hierarchy with Object as its root. Figure 1 shows how the tree might 
look after a few classes have been declared; note that all classes in the 
tree are strictly hypothetical except for class Object. 

If XyzClass is some class, we can trace a chain of superxdasses going 
from the superclass of XyzClass to the superclass' s superclass and so 
forth up to class Object. The classes in the chain ar^ the anaestarsr of 
XjrzClass, andXyrsClassisa dtesrenrfa^ 

1.4 Inheritance 

A class Inherits the field definitions of its ancestors. Thus if class 
Shape (see Figure 1) defines a field named center, then center is also a 
field-identifier of Triangle even though Triangle does not explicitly 
define such a field. The "meaning" of center as a field of Triangle is 
given by its declaration as a field of Shape. 

When a method is inherited, it can be overridden by the inheriting 
class; this is explained in Section 4.1. 
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FlajiePoint 



ClosedCurve 




OpenPoly 



Triangle Rectangle 



PolyN 



Squax^e 



Fig. 1: A Hypotiietlcal Class Tree. 

(Dark lines show the ancestors of class Trian^. ) 



15 Assignment-<tompatibility of Objects 

Suppose that V is a variable, parameter, or function-Identifier of 
class-type T, aund expr is an expression whose resiolt is to be assigned 
to V. V and expr are assignment-compatible if ^ther of the following is 
true: 

• The result of expr is an object of class T . 

• The resuQt of expr is an object of a class descended from T , 

2 Expansion of Existing Pascal Syntax 

The following syntax diagrams aire expansions of the conventional 
Pascal syntax . Note that they allow all the same constructions as the 
conventional syntax, and some additional constructions for ClaLScal. 

Fii^t, the syntax for a structured-type is redefined to allow a class- 
type. 
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structured-tyipe 



W (packed) -^ 



T 



axray-lype 



T 



set-type 



file-type 



record-type 



claiss-type 



^^-♦^ 



structured-type-identifier 



T 



The syntax for a class-type is given in Section 3 . 

FionctJon-caJI s ^ procedure-statements, and actual-paraLineters are re- 
defined in terms of fanctionTeferences and procedure-ireferences. 
This allows reference to a method (procedure or function) that is 
defined as a field of a class . 



flmctfan-call 

► 



function-reference 



^ 



actuai-paurameter-list 



function -reference 




<► function-identifier 



procedurestSLtement 



procedure-reference 



Ti 



actual-parameter-Ust 
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j?rocedure-referenoe 



M 



variable-reference 



clsLSs-identifler 



7 



^O^ 



procedure-identifier 



actuaJ-paTAmeter 




expression 










i^ 


■> 


^-^ 

I i. 








/ 




■ 


variable-reference 










H 






procedure-reference 






function-reference 






^ 











Finally, the sjmtax for an implerrentation-part is redefined by re- 
placing the procedure-and-function-declaratlon-part with a more 
general construction called a subroutme-'pajrt. 



implementatlcn-part ^ (^^;^^^ 



T 



^--^ 



r 



-^ 



r 



consteint-declaration-part 



D 



type-declaration-part 



D 



variable-declaratlon-part 



D 



subroutine-part 
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subroutLne-pajrt 



"T" 



procediire-declaxation 



7^ 



function-declaration 



^^ inethod-block 



like a procedure--andrftanctlon--declaration-part, a subroutine-part 
allows procedure-declarations and function-declarations. In axidi- 
tion, it allows method-bJocks, which are discussed in Section 3. 

3 Defining a Qass 

A class can only be defined within a unit (either a regular-unit or an 
intrinsic-unit) . The specification of a class is in two parts . First the 
class-type itself is declared in the type-declaration-part of the vinit' s 
interface-part; then the class' s methods are implemented in a method- 
block in the unit' s implementation-paxt. 

The syntax for a class-type is 



cl^s-t;rpe » ( subcLassX ^r> 



class-identifier 



D 



field-list 



D 



^ 



method-interface 



J 



class-Identi£ter ^i t^g^tlfler 
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meth od-in terfa.ce 




Example of a class-type declaration (must be in lype-xieclaration-part 
within a unit's interface-part): 

Triajigle = srubdass of ClosedPoly 

comer: array [1. .3] of PlajiePoint; 

color: T Color; 

{. . . other data fields. . . } 

function sides: integer; dasswide; 

function new(cl^ c2, c3: PlanePoint): Triangle; 

function area: real; 

procedure setComersCcly c2» c3: PlanePoint); 

procedure translate(vect: PlanePoint); 

procedure rotate(theta: real); 

{. . . other method-interfaces. . . ) 
end; 

Notice that the class-type being declared can be referred to within its 
own declaration . 

Each method-interface in the class-lype defines the interface to a 
method of the dass^ i.e., the method's identifier, its formal- 
parameter-list (if any) , and its result-type (if it is a function) . 

The identifiers of data fields and methods in a cla^s-type must not 
conflict with those of any data fields and methods inherited from 
ancestor clajsses . 

The abstract directive indicates a method with no implementation in this 
cla^s, intended to be implemented by a subclass . The cLasswide direc- 
tive indicates a method to be invoked via a reference to the class-type 
itself, instead of a reference to an object of the class. Abstraxrt and 
classwide methods are discussed in more detail in Section 4. 

For each class-iype declared in the unit* s Interface, there is a method- 
block in the unit' s implementation-pajrt. 
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method-block 



— ^ ineiaiods ^ class-identifier --^^T)--^ 



^— !► procediire-a3i.d~fUnction-declaratlon-part [ — > 



^^-^carea-tton^^ creation-block 



^^^<Sh*^ 



The method-block's procediire-and-function-declaration-part imple- 
ments the claLSs's non-abstract methods, including those that override 
inherited methods . 

Each procedure or function is declared without ajiy f ormal-paraLmeter- 
list or result-type, since this information has already been given in the 
method' s method-interf ace . 

Example of a method-block (Tnust be in the Implementation-part of the 
unit): 

methods of Triangle; 
function sides {: iniseger; dasswide}; 

begin sides := 3; end; 
function new {(cl» c2, c3: RaLnePoint): Triangle}; 

begin {code to implement new} end; 
fVinction area {: real}; 

begin {code to implemait area} end; 
prooedure setComers {(cl, c2, c3: PlanePoint)}; 

begin {code to implement setComers} end; 
procedure translate {Cvect: HaxiePoint)}; 

begin {code to implement trajislate} end; 
procedure rotate {(theta: real)}; 

begin {code to implement rotate} end; 
{. . . other methods. . . }; 
end; 

A creation-block is simply a conventional Pascal block : 



creation-block 



^ block 
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If a creation-block is present, it will be executed before execution of 
ciny code in the host program. This allows initialization of the unit. 

In general, there may be more than one creation-block to be executed 
before the host code is executed . The rule is that a creation block for a 
given class will not be executed until all creation-blocks declared for 
the class * s ancestors have been executed . 

4 Defining a Method 

A method of a particular class is defined by two things: 

• Its method-interface, which may appear in the classes cla^s-type 
declaration or may be inherited from an ancestor class . 

• A corresponding implementation (procedure-declaration or 
function-declaration) in the class' s method-block . 

4.1 OveiTidirig Inherited Methoc^ 

Figiire 2 (overleaf) shows how a method is looked up when it is called by 
referencing aji object* s identifier qualified with the method* s identifier. 
Note that the search always begins in the object* s own class . 

If doThis is a method of dassL, then any descendant of dassL (such as 
dassN) can override it by providing a different implementation of 
doThis in its method-block . 

Note that in this case there is no corresponding method-interface in the 
class-type of dassN; the overriding implementation inherits the 
original interface . 

The original doThis method will still be inherited by any cla^s that is 
between dassL and dassN in the chain (such a^ dassM), but the 
overridden method will be inherited by descendajits of classN. Any of 
these decendants can again override the method . 

Note that you cajinot override the method-interface of aja inherited 
method; a compiler error will result. Likewise, you cannot override the 
declaration of aji inherited data field . 

42 Self -Reference via the Self Pseudovariable 

Cla^scal provides a "pseudovariable" named self. When this identifier is 
used in a method, it refers (at execution time) to the object that wa^ 
referred to in order to invoke the method. (In object-oriented 
programming pajrlajnce, this object said to be "executing" the method. ) 

This allows an object* s methods to refer to the object's own fields, 
without knowing an identifier for the object itself. 
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methods 
implemented: 
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foo 
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is an instance of dassM) 
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Search caused by 
xObj.doThis (where xObj 
is an instance of deissP) 



Fig, 2: Inheriting a Method 

(Small arrows indicate subdassing; see listing, Appendix A.) 



For example, suppose the following: 

• C12LSS Triajtgle, aus indicated in Section 3, dedares a method named 
area and a data field named comer . 

• Method area contains a reference to self . comer. 

• trilandtrl2arevariables of type Triangle. 

If area is invoked by tril. area, then it will access the field tril. earner. 
But if area is invoked by tri2.area, then it wiU axxess the field 
triZ. comer. 

Another example is shown in Figure 3. An instance of dassP inherits the 
doThis method from dassN, and this doThis method contains the 
reference self. foo. This is a reference to the foo field of whatever 
object happens to be executing the doThis method (in the case 
illustrated, the object xObj) . Thus the search for foo begins in dassP, 
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the clSLSs of the object executing doThis — not in claissN, where doThis 
is implemented. 
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Search caused by 

xObj. doThis (where xObj 

is an instance of classP) 







Fig. 3: Self~Reference via the S^Lf Pseudovariable 

(Small arrows indicate subclassing; see listing , Appendix A.) 



Clascal does not allow you to assign anything to self (with one 
exception described in Section 4.6). However, you can maJce assign- 
ments to fields that are referenced via sdtf. In other words , self : = expr 
is illegal but setf . color : = expr is legal . 

43 Self -Reference via a aass-Identifier 

In addition to self, there is another mechanism for self -reference. A 
method can be referenced by using a class-identifier instead of self. 
Figure 4 (overleaf) illustrates this mechanism. 
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classes: 



methods 
Implemented: 



dassL 



I 



claLSsM 
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classN 
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classO 



I 



dassP 



'^sp^mmmm^^^^ 
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self. foo (in foo 
Lrrethod of dassL) 
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xObj.doThis (where xObj 
is aj\ instsince of dassP) 
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Fig- 4: Sdtf-Refereance via a Class-Identifler 

(Small arrows indicate subclassing; see listing. Appendix A.) 



The clauss-identifier must identify the class of the calling method (dlassN 
in the illustration) or an ancestor of the calling method' s class (dassM 
or classL in the illustration) . 

Note that the only difference between using a class-identifier in this 
way and using self is the following: 

• In a method reference using self, the search for the referenced 
method always begins in the class of the object that is executing the 
cabling method. This is shown for self .fooin Figures 3 and 4. 

• In a method reference using a class-identifier, the seaxch for the 
r^erenced method always begins in the specified class. This is 
shown for dassL- foo in Figure 4 . 

Calling a method via a class-Identifier allows a method to call another 
method that is overridden, as shown in Figure 4. If the doThis method 
of classN contained the call self • foo, this would invoke the foo method 
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of dassM, which overrides the foo method of dassL. The call 
classL.foo, being more explicit, avoids this. 

Note that the call via a dLsLSs-identifier is just ais self-referential as a 
call via self. In Figure 4 , the object xOb j is executing the doThls method 
of dassN, the foo method of dassL, ajid the foo method of dassO (since 
both the ClassL.foo auid the self .foo calls are self-referential) . If ajny 
of these methods accesses a data field , it viU be a data field of xOb j. 

4-4 Classwide Methods 

A classwide method is declared (in a claLSS-type) by using the directive 
classwide. A classwide method is invoked by reference to the class 
itself, not by a reference to aji object of the deuss . 

For example, in the example of a daiss-type shown in Section 3 we have 
sides dedai^ed a^ a daisswide method of daiss Triangle; it is a function 
that retuxns the integer value 3. This method is invoked by the 
function-reference Triajtgle. sides . If tri is an object of class Triangle, 
the function-refeirence tri. sides is ain error . 

Nq rtf^r^nc^ tp sgiif is ^qv^ In ^ ol^swld^ mgthQd- There is a single 
exception to this rule: a new method is implidtly a daisswide method (aLS 
explained in Section 4 . 6) but is allowed to refer to self. 

45 Abstract Methods 

An abstract method is dedared (in a dajss-type) by using the directive 
abstract. An abstract method has no implementation in the class's 
method-block; it is intended to be overridden by descendants of the 
class. 

A reason for dedaring an abstract method is to allow other methods of 
the dass to refer to it. For example, suppose that d€iss Shape (see 
Figure 1) dedares an abstract method named boundary aind a non- 
abstract method named Inside, which refers to self, boundary. The idea 
is that descendajits of Shape will inherit Inside ajid override 
boundary. 

Suppose that da^s Poly overrides boundary, so that da^s Square 
inherits boimdary from Poly and inside from Shape. If nextSqr is an 
object of class Square, then nextSqr. inside will invoke the inside 
method defined in Shape; when this method refers to self .boundary, it 
invokes the boundary method defined in Poly. Thus we have the useful 
phenomenon of a method inherited from a high level (Shape) invoking a 
method that is not concretely defined until a lower level (Poly) . 

If a dass* s new method (see Section 4 . 6) is abstract, the dass is called 
aji abstract class. An abstract dass cajinot have any instances, ajid 
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exists in order to define common properties to be inherited by its 
descendants. 

4.6 The New Method 

Every claiss-type must declare a method najned new. Note that this 
means that a new method cannot be Inherited, and that the standard 
Paiscal new procedure is unavailable within the methods of any clauss- 
type. 

The new method must be a function. It can have any desired formal- 
parameter-list Cor none). The return-type must be the class-type 
within which the new method is being declared^ bjs in the exajrnple of a 
class-type declaration shown earlier . 

The new method is automatically a classwide method, although it is not 
declared with the dasswide directive. Its purpose is to create and 
return a new object of the class-type in which it is declared . 

Unlike other Pascal functions, the new method must not explicitly 
assign a return value to the identifier new. Instead, it assigns a value 
to self, and implicitly returns self. (This is the only case in which 
assignment to self is allowed, and the only case in which a dasswide 
method can refer to self . ) 

The right-hand side of the assignment to sdLf may be either of the 
following: 

• An expression whose result is a handle for a newly created object of 
the class being implemented (the handle concept is discussed in 
Sections) 

• The constant nil (not just any expression with the value nil) . This 
should be used in case the allocation of the object fails . 

The ToolKit provides a function called newObject, which allocates 
space for an object on a heap and returns the object's handle; this 
function should be used in implementing newmethods . 

5 Qass Ob^ct 

The predefined class Object has no data fields or methods. To malce it 
more useful, it can be redefined to provide a ri^s^ method and a method 
for deallocating an object. The ToolKit provides such a redefinition; 
lacking the Toolkit, you can redefine class Object via the following 
maneuver (or something similar ) . 
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interfaLce 



type Ob jectAlias = subclass of Object 
function new: ObjectAlias; 
procedure free; 
end; 

Object = ObjectAliaLS; 



iznplannentation 

methods of Object; 
function new {: Object}; 

begin {code to implement new} end; 
procedure free; 
begin {code to implement free} end; 
end; 



6 Ob jects as Handles 

NOTE 



To use Clascal, it is not necessary to understand the explanation 
given here. 

Internally,^ a value of claLSs--type is not really am object but a handle for 
an object. 

Handles support relocatable dynamic allocation of storage. The 
pointer to a relocatable area is not relocatable, and the memory- 
management software automatically maintains it when the object is 
relocated . The handle points to this non-relocatable pointer, and thus 
does not need to be maintained. In conventional Pascal, a handle must 
be double-derefeirenced in order to access the relocatable object . Thus 
if hndl is a handle for some relocatable variable, then hndl'^'' is a 
reference to the variable itself. 

A declared variable of cla^s-type is actually a pointer-type variable; a 
handle returned by the new method of the cla^s can be assigned to it. 
Clascal provides automatic double-deferencing of object handles, as 
follows: 

• A reference to a field (data or method) of a variable of class-tjrpe is 
automatically double-dereferenced, 2-esulting in a refeirence to a 
field of the associated object as described in Section 1. If class 
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Square defines a data fidld caJlled edge, axid aSquare is an initialized, 
variable of cla^s SquazB, then aSquare.edge is a reference to the 
edge field of the object that aSquaxe is a handle for. (If a^iiare 
were a conventional PascaJ handle instead of a class--type variable, 
it would be necessary to write a^quare^^ >edge , ) 

In other woirdSf you can think of the variable as if it were the object 
itself f when referring to fields. 

• However, a ireference to a value of class-type, without reference to 
a paarticulax fields is not derefcsrenced. If squaxel ajnd squajneE are 
both variables of cla^s Square, and squarel has been initialized, 
then the assignrnent squaj?^ : = squajnel does not irean that a copy of 
the ob^t is associated with squared; it ineans that the handle tn 
squarel is copied to squared. Thus squaxel ajid squa.re2 are now 
associated with the very same object, and the references 
squarel . edge ajnd squax^. edge now refer to the same data . 

7 $H+ and $H- Compiler Commands 

Normally, objects are stored in heap zones and can be relocated; aji 
object is relocated when the heap zone containing the object is 
compacted. As explained in Section 6, all references to objects are 
through handles (double-indirect pointers) » so that the relocation is 
Invisible to the user program. 

It is important to avoid code that forms a Hi-r^art reference to an object, 
then relocates the object, and then uses the direct reference — which is 
invalid because of the relocation. For exarr^le, if his an object ajndh.a 
references an Integer data field of h, then 

X := «9i.a; {direct pointer into the heap} 

mumble; {a procedure that irdght compa^ the heap} 

x" := 3; {intended to store into h.a. ..} 

is unsafe; if foo does compact the heap, the third statement will 
probably overwrite something that is not h. a. 

Constructs like this one axe obviously unsafe, and the programmer is 
responsible for avoiding them. 

But because Clascal provides automatic double-dereferencing of object 
haandles , the same problem can occur in some constructions that appear 
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safe . The compiler checks for these constructions if the SH+ commaLnd is 

in effect (the default). The unsafe constructions are 

■ .••■"'■ '"' 

• Assigning the result of a function-call to a field of an object. 

Exajnple: 

h. a : ~ f oo; {h is an object, f oo is a function} 

• Calling a procedure or function in a with-statement that is 
controlled by a variable of clajsfs-type. Example: 

vith h do begin {h is an object} 
nuinble; {a procedure} 

end; 

• Passing a field of ain object as an actual varia^ble parajneter to a 
procedure or function. Example: 

frobCh.a); {h is an object, £rob is a xsrocediire that 
takes a variable paramster} 

If you are certain that the procedure or function in one of these 
constructions will not compact the heap, you can turn off the compiler 
checking by using the SH- command. 
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Appendix A 

Sample Listings 



The following is skeleton source code for aji example unit. This unit 
declajres and Implements the daises shown In Figures 2-4 of this 
manual. 

unit Sample; 

(* « . ^; ^ *) 

Interface 
(* .^^^ ^. *) 

{Declare class-types f or dLassL, class*!, dassN, 
dassOy and cLassP.} 

dassL ~ subclass of object 

function new: dassL; abstrajct; 

procedui^ doThis; 

proced\ire foo; 

end; 
(* ; „^ ^ ♦) 

dassM = subclass of classL 

fVmction new: dassM; abstract; 

end; 
(^ .„«„^ .^^ .„^ ., *) 

cla^isN = subclass of dassM 
function new: dassN; abstract; 

end; 

(* ,^. ») 

daussO - subclass of dassN 

function new: dassO; abstract; 

end; 
(* ^^^ *) 

dassP = subclass of da^ssO 

function new: dassP; 
end; 
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^^^^^^^^^^ ^«__. ^.„_^__^„^_^^^ ^^ 

I¥^^0^ of <a^U5SL» 

psrocf^ure doTMs; 

^ctd; 
pro^s^uj^ foo; 
be^in. 

s^.foo; 
end; 

procadii3ee;.foo; 



■ end; 
(» ^_.^,_^^^.„ __*« --^^- ^^ ^*) 

w^thod^ of xsiass^ 

seJf.foo; 
classL.ffe>o; 
eiijd; 

mef^ods of #€i^O; 
prooedi^^ foo» 

end; 

end; 
(* ^„^„_^ « ••.- ,^ ^^^^^^ *) 

ifi5l3\ods of <^^ 

function new; 

begin 

self := {expression to return a handle. .. } 

end; 

end; 
(* -^«„„ „^^^ .„^„«„„„«„^„„„„„ *) 

end. €of unit} 
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C^-P^CH-^ ClO/^.YfLBP^ tldgc^S 

J J ' Super CI^As /dcniZ-Pfcr missing* 

32 Method New is not declared. ^ 

33 Subclass declaration not allowed here. 
3 J Method \% not a procedure. 

3 Method is not implemented. 

3^^^ ClAS^ is not implemented. 

u7 / Super Class identifier is not a class. 

08 Identifier \% not a class. 

09 'NEW' not allowed here. 

10 'NEW' 4Mas expected here. 

11 Illegal 'NEW' method. 

12 in^gal lise of Class identifier 

13 ♦H* h.a 8- p<> 

,14 ♦H'f UITH h DO BEGIN ... p<> END? 

515 ♦H* pCVAR h.a> 



